home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b6.d64 / quicksort'str.l < prev    next >
Text File  |  2007-02-28  |  416b  |  17 lines
  1. 9000 PROC QUICKSORT'STR(REF A$(),M,N) CLOSED
  2. 9010 L:=MAXLEN(A$(M))
  3. 9020 DIM P$ OF L, T$ OF L
  4. 9030 PART(M,N,M,N)
  5. 9040 ENDPROC QUICKSORT'STR
  6. 9050 //
  7. 9060 PROC PART(M,N,I,J) 
  8. 9070 P$:=A$((M+N) DIV 2)
  9. 9080 REPEAT 
  10. 9090 WHILE P$>A$(I) DO I:+1
  11. 9100 WHILE P$<A$(J) DO J:-1
  12. 9110 IF I<=J THEN SWAP'STR(A$(I),A$(J),T$); I:+1; J:-1
  13. 9120 UNTIL I>J
  14. 9130 IF M<J THEN PART(M,J,M,J)
  15. 9140 IF I<N THEN PART(I,N,I,N)
  16. 9150 ENDPROC PART
  17.